home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN2.LZH / SCROLL.FOR < prev    next >
Text File  |  1988-02-08  |  2KB  |  82 lines
  1.       SUBROUTINE SCROLL ( NWRITE, ITOP, IBOT )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          SCROLL           **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          SCROLL REGION
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CALIF    94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          ON A VT100 TERMINAL, DEFINE A PORTION OF THE SCREEN TO BE
  23. C*          USED FOR A SCROLL REGION AND PLACE THE CURSOR IN THE FIRST
  24. C*          LINE OF THAT REGION.  NOTE: USE SRESET BEFORE EXITING YOUR
  25. C*          PROGRAM TO RESTORE THE NORMAL SCROLL REGION.
  26. C*          NOTE: GOTOXY CAN STILL GET THE CURSOR OUTSIDE OF THE SCROLL
  27. C*          REGION.
  28. C*
  29. C*     INPUT ARGUMENTS :
  30. C*          NWRITE - THE LOGICAL UNIT NUMBER FOR THE SCREEN
  31. C*          ITOP   - THE FIRST ROW TO BE IN THE SCROLL REGION
  32. C*          IBOT   - THE LAST ROW TO BE IN THE SCROLL REGION
  33. C*
  34. C*     OUTPUT ARGUMENTS :
  35. C*          NONE
  36. C*
  37. C*     INTERNAL WORK AREAS :
  38. C*          NONE
  39. C*
  40. C*     COMMON BLOCKS :
  41. C*          NONE
  42. C*
  43. C*     FILE REFERENCES :
  44. C*          NWRITE
  45. C*
  46. C*     SUBPROGRAM REFERENCES :
  47. C*          NONE
  48. C*
  49. C*     ERROR PROCESSING :
  50. C*          NONE
  51. C*
  52. C*     TRANSPORTABILITY LIMITATIONS :
  53. C*          NON-STANDARD FORMAT STATEMENT
  54. C*
  55. C*     ASSUMPTIONS AND RESTRICTIONS :
  56. C*          ONLY WORKS ON VT100S AND COMPATIBLES
  57. C*
  58. C*     LANGUAGE AND COMPILER :
  59. C*          ANSI FORTRAN 77
  60. C*
  61. C*     VERSION AND DATE :
  62. C*          VERSION I.0     22-FEB-85
  63. C*
  64. C*     CHANGE HISTORY :
  65. C*          22-FEB-85    INITIAL VERSION
  66. C*
  67. C***********************************************************************
  68. C*
  69.       IF ((ITOP .LT. 1) .OR. (ITOP .GT. 23)) ITOP = 1
  70.       IF ((IBOT .LT. 2) .OR. (IBOT .GT. 24)) IBOT = 24
  71.       IT = 1
  72.       IF (ITOP .GT. 9) IT=2
  73.       IB = 1
  74.       IF (IBOT .GT. 9) IB=2
  75.       WRITE (NWRITE,900) CHAR(27),ITOP,IBOT
  76.       RETURN
  77. 900   FORMAT(' ',A1,'[',I<IT>,';',I<IB>,'r',$)
  78.       END
  79. C
  80. C---END SCROLL
  81. C
  82.